home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln1085.arc / P8.PAS < prev    next >
Pascal/Delphi Source File  |  1986-02-27  |  896b  |  31 lines
  1. program p8;   {input tester}
  2.               {Just for fun}
  3. var  x,y,i,j,p  : integer;    sx,sy, s : string[20];
  4.    mode, device : integer;
  5.  
  6. const  default = 2;     {default valuator device}
  7.  
  8. {$iB:GSXWORK.INC}
  9. {$iB:GSXTEXT.INC}
  10. {$iB:GSXINPUT.INC}
  11.  
  12. begin
  13.    write('Enter workstation number > ');  readln(i); writeln;
  14.    device := default;
  15.    writeln('Enter mode 1=req, 2=sample > '); readln(mode);
  16.    openstation(i);
  17.    setinputmode(device,mode,i);
  18.    writeln(' realized mode was ', i);
  19.  
  20.    j := 16000;
  21.    repeat       i:=i+1;
  22.        if inputvaluator(device, mode, j, y) > 0 then begin
  23.        str(y,sy);   s := '('  + sy + ')';
  24.        showtext(s, length(s), j, 1500*y)
  25.        end
  26.    until i=10;
  27.    readln;
  28.    clearstation;
  29.    closestation
  30. end.
  31.